// TOWN SPECIAL ENCOUNTERS
//    Town 34: Blackcrag Fortress

beginzonescript;

variables;

short im_hostile = 0;
short max_crime = 200;
short last_abil;
short counter = 0;
short set_ter = 0;

body;

beginstate INIT_STATE;
	last_abil = get_current_tick();

//	set_name(,);
//	add_range_to_group(,,groupn);

	set_personality_name(680,"Seymour");
	set_personality_name(681,"Howar");
	set_personality_name(682,"Petrie");
	set_personality_name(683,"Shane");
	set_personality_name(684,"Prosise");
	set_personality_name(685,"Winn");
	set_personality_name(686,"Vladimir");
	set_personality_name(687,"Empress Prazac");

	if (gf(34,15) > 0)
		erase_char(3407);
	if (gf(34,16) > 0)
		erase_char(3401);
		
	sf(34,14,1);
	
	set_crime_tolerance(max_crime);

	break;

beginstate EXIT_STATE;
break;

beginstate START_STATE;
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3407,"Welcome to Blackcrag.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3407,"I can guide you.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3407,"Brrr.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3407,"It's so cold and damp here.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3406,"Need better ventilation.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3406,"Pardon the stench.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3406,"Need a potion?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3405,"You nasty little creature.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3405,"Let me measure the forelegs.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3405,"Filthy little thing.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3405,"They breed so quickly.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3405,"Don't harm my specimen.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3404,"HSSSS!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3404,"Tk tk tk.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3404,"Bite!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3425,"The Anama will prevail.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3425,"They hold me here.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3425,"I research monsters.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3425,"Magic caused these plagues.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3425,"Resist the evils of magic.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3425,"Magic made the plagues.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3403,"!!!!!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3403,"Excuse me.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3403,"Eat what you need.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3416,"Hello, Avernite.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3416,"You can augment items.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3416,"Clang! Clang!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3416,"Need any gear?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3401,"Speak with me.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3401,"I assist the Empress.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3401,"You made it here.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3401,"At last.");
	if (gf(308,3) > 0) {
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(3400,"We have a deal.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(3400,"Go to Tinraya.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(3400,"The answer is in Footracer.");
		}
	if (gf(308,3) == 0) {
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(3400,"I want to deal with you.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(3400,"I have a message for you to carry.");
		}
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3400,"Another disaster?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3400,"Send these orders.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3400,"Is the army prepared?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(3400,"We will return to Valorim.");

break;

beginstate 10;
break;

beginstate 11;
break;

beginstate 12;
break;

beginstate 13;
break;

beginstate 14;
break;

//	print_str("");
//	set_terrain_string_range("",1);
//	set_terrain_string_range("The sign says - .",1);

